home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / batch / MiniMen.lha / MiniMen / DMSX < prev    next >
Encoding:
Text File  |  2000-02-25  |  721 b   |  32 lines
  1. echo c
  2. Requestfile >env:FDMS TITLE="Choose DMS file to extract" PATTERN "#?.DMS" DRAWER "RAM:"
  3. if warn
  4.    echo "*N Operation canceled....!"
  5.    quit
  6. endif
  7. if not exists $FDMS
  8.    echo "*N File does not exist....!"
  9.    delete >nil: env:FDMS
  10.    quit
  11. endif
  12. MiniMen drives
  13. if exists env:minmen
  14.    assign >nil: exists $MinMen:
  15.    if warn
  16.       if exists sys:storage/dosdrivers/$MinMen
  17.          mount >nil: sys:storage/dosdrivers/$MinMen
  18.       else
  19.          echo "*N Device driver not found....!"
  20.          quit
  21.       endif
  22.    endif
  23.    if $MinMen EQ "PC0"
  24.       undms $FDMS to $MinMen: PC VERIFY
  25.    ELSE
  26.       undms $FDMS to $MinMen: VERIFY
  27.    ENDIF
  28. else
  29.    echo "*N Operation canceled...!"
  30. endif
  31. delete >nil: env:MinMen env:FDMS
  32.